object MainForm: TMainForm
  Left = 65
  Top = 132
  Width = 597
  Height = 498
  ActiveControl = memoProcessorMacros
  Caption = 'Luxena dbExpress eXtension SQL processing demo'
  Color = clBtnFace
  Constraints.MinHeight = 448
  Constraints.MinWidth = 571
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 6
    Top = 6
    Width = 576
    Height = 435
    ActivePage = tabMacros
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object tabMacros: TTabSheet
      Caption = 'Macros'
      object splitterMacros: TSplitter
        Left = 0
        Top = 206
        Width = 568
        Height = 2
        Cursor = crVSplit
        Align = alBottom
        Beveled = True
        ResizeStyle = rsUpdate
      end
      object panelProcessorMacros: TPanel
        Left = 0
        Top = 0
        Width = 568
        Height = 206
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object labelProcessorMacros: TLabel
          Left = 12
          Top = 12
          Width = 117
          Height = 13
          Caption = 'SQL &processor'#39's macros:'
          FocusControl = memoProcessorMacros
        end
        object memoProcessorMacros: TMemo
          Left = 12
          Top = 36
          Width = 543
          Height = 163
          Anchors = [akLeft, akTop, akRight, akBottom]
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
      object panelQueryMacros: TPanel
        Left = 0
        Top = 208
        Width = 568
        Height = 199
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object labelQueryMacros: TLabel
          Left = 12
          Top = 6
          Width = 421
          Height = 13
          Caption = 
            '&Query'#39's own macros (override existing values from own or connec' +
            'tion'#39's SQL processor):'
          FocusControl = memoQueryMacros
        end
        object memoQueryMacros: TMemo
          Left = 12
          Top = 30
          Width = 543
          Height = 157
          Anchors = [akLeft, akTop, akRight, akBottom]
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
    object tabSQL: TTabSheet
      Caption = 'SQL'
      ImageIndex = 1
      object splitterSQL: TSplitter
        Left = 0
        Top = 206
        Width = 568
        Height = 2
        Cursor = crVSplit
        Align = alBottom
        Beveled = True
      end
      object panelMacroSQL: TPanel
        Left = 0
        Top = 0
        Width = 568
        Height = 206
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object labelMacroSQL: TLabel
          Left = 12
          Top = 12
          Width = 55
          Height = 13
          Caption = '&Macro SQL:'
          FocusControl = memoMacroSQL
        end
        object memoMacroSQL: TMemo
          Left = 12
          Top = 36
          Width = 447
          Height = 163
          Anchors = [akLeft, akTop, akRight, akBottom]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object buttonParse: TButton
          Left = 477
          Top = 36
          Width = 75
          Height = 24
          Anchors = [akTop, akRight]
          Caption = 'P&arse'
          TabOrder = 1
          OnClick = buttonParseClick
        end
      end
      object panelCommandText: TPanel
        Left = 0
        Top = 208
        Width = 568
        Height = 199
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object labelCommandText: TLabel
          Left = 12
          Top = 6
          Width = 249
          Height = 13
          Caption = '&Command text that will be sent to the DBMS server:'
          FocusControl = memoCommandText
        end
        object labelQueryParams: TLabel
          Left = 410
          Top = 6
          Width = 92
          Height = 13
          Anchors = [akTop, akRight]
          Caption = 'Query &parameters:'
          FocusControl = listboxQueryParams
        end
        object memoCommandText: TMemo
          Left = 12
          Top = 30
          Width = 369
          Height = 157
          Anchors = [akLeft, akTop, akRight, akBottom]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object listboxQueryParams: TListBox
          Left = 392
          Top = 30
          Width = 163
          Height = 157
          Anchors = [akTop, akRight, akBottom]
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
  end
  object OracleProcessor: TLXSQLProcessor
    Macros.Strings = (
      'dbms=oracle'
      'datefunc=sysdate'
      'concat=||')
    Left = 366
    Top = 120
  end
  object Query: TIfxQuery
    Connection = Connection
    SQL.Strings = (
      'select * from'
      '#if (dbms = oracle)'
      '  some_oracle_table'
      '#elseif (dbms = mssql)'
      '  some_mssql_table'
      '#elseif (dbms = mysql)'
      '  some_mssql_table'
      '#else'
      '  #error Unknown database type'
      '#endif'
      
        '-- :param here standard SQLQuery will generate parameter but thi' +
        's'
      '-- only a comment, DBXQuery will process it correctly'
      'where some_column = '#39'sample'#39' %concat :some_column_parameter;'
      ''
      '#if (debug)'
      'insert into debug_table'
      '  (timestamp, descr)'
      'values'
      '  (%datefunc, :descr);'
      '#endif')
    Macros.Strings = (
      'debug')
    Left = 438
    Top = 84
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'some_column_parameter'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'descr'
        ParamType = ptInput
      end>
  end
  object Connection: TIfxConnection
    StatementCacheSize = 20
    FieldTypes.NChar = ftString
    SQLProcessor = OracleProcessor
    Left = 402
    Top = 84
  end
  object MSSQLProcessor: TLXSQLProcessor
    Macros.Strings = (
      'dbms=mssql'
      'datefunc=getdate()'
      'concat=+')
    OracleLob = False
    Left = 402
    Top = 120
  end
  object MainMenu: TMainMenu
    Left = 534
    Top = 36
    object menuAbout: TMenuItem
      Caption = 'About'
      OnClick = menuAboutClick
    end
  end
end
